library(dplyr)

library(tidyverse)
rm (list = ls())
setwd("C:/MOSM GA/2018update")
data <- read.csv ( file = "MOSM 2018-04-30 1248 SPEAMO.csv", header = TRUE,check.names = FALSE)
head(data,120)

last_gen04301248 <- data %>% subset(Generation==15995)
head(last_gen04301248,10)


write.csv (x = last_gen04301248, file = "lastgen4301248unseeded_099cr.csv", row.names = FALSE)
